﻿Public Class alumno
    Inherits persona
    'clase hija de persona
    Private carrera As String
    Private edad As Integer
    Private notas As Double

    Sub New(ByVal rut As String, ByVal nombre As String, ByVal sexo As String, ByVal carrera As String, ByVal edad As Integer, ByVal notas As Double)
        MyBase.New(rut, nombre, sexo)
        Me.carrera = carrera
        Me.edad = edad
        Me.notas = notas
    End Sub

    Sub modificaralumno(ByVal rut As String, ByVal nombre As String, ByVal sexo As String, ByVal carrera As String, ByVal edad As Integer, ByVal notas As Double)
        MyBase.modificar(rut, nombre, sexo)
        Me.carrera = carrera
        Me.edad = edad
        Me.notas = notas
    End Sub

    Public Function detallealumno() As String
        MyBase.detalle()
        Return detalle() & " " & carrera & " " & edad & " " & notas
    End Function

    Public Function getcarrera() As String
        Return carrera
    End Function

    Public Function getedad() As Integer
        Return edad
    End Function

    Public Function getnotas() As Double
        Return notas
    End Function
End Class
